VERSION 5.00
Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} Cal_Form7 
   Caption         =   "Port1-Port2 Thru"
   ClientHeight    =   5220
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   7515
   OleObjectBlob   =   "Cal_Form7.frx":0000
   StartUpPosition =   2  'CenterScreen
End
Attribute VB_Name = "Cal_Form7"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False


Private Sub Cmd_Cal7_Click()
        temp = Cal.Cal_Step_7()
        dmy = SCPI.IEEE4882.OPC
        Cmd_Cal7.BackColor = vbGreen
        'next button get focus
        CommandButton3.SetFocus
End Sub

Private Sub CommandButton1_Click()
flag = 0
Cal_Form7.Hide
'Unload Cal_Form7
Cal_Form6.Show

End Sub
Private Sub CommandButton3_Click()
Cal_Form7.Hide
'Unload Cal_Form7
'Cal_Form8.Show
'--------operate checkbox in step8--------
If Cal_Form1.Cmd_Cal1.BackColor = vbGreen Then
    Cal_Form8.Check_Step1.Value = True
    flag = flag + 1
'Else
   ' Cal_Form8.Cmd_Done.Enabled = False
End If
If Cal_Form2.Cmd_Cal2.BackColor = vbGreen Then
    Cal_Form8.Check_Step2.Value = True
    flag = flag + 1
'Else
    'Cal_Form8.Cmd_Done.Enabled = False
End If
If Cal_Form3.Cmd_Cal3.BackColor = vbGreen Then
    Cal_Form8.Check_Step3.Value = True
    flag = flag + 1
'Else
   ' Cal_Form8.Cmd_Done.Enabled = False
End If
If Cal_Form4.Cmd_Cal4.BackColor = vbGreen Then
    Cal_Form8.Check_Step4.Value = True
    flag = flag + 1
'Else
    'Cal_Form8.Cmd_Done.Enabled = False
End If
If Cal_Form5.Cmd_Cal5.BackColor = vbGreen Then
    Cal_Form8.Check_Step5.Value = True
    flag = flag + 1
'Else
    'Cal_Form8.Cmd_Done.Enabled = False
End If
If Cal_Form6.Cmd_Cal6.BackColor = vbGreen Then
    Cal_Form8.Check_Step6.Value = True
    flag = flag + 1
'Else
   ' Cal_Form8.Cmd_Done.Enabled = False
End If
If Cal_Form7.Cmd_Cal7.BackColor = vbGreen Then
    Cal_Form8.Check_Step7.Value = True
    flag = flag + 1
'Else
    'Cal_Form8.Cmd_Done.Enabled = False
End If
'--------------------------------------------
If flag = 7 Then
   Cal_Form8.Cmd_Done.Enabled = True
Else
   Cal_Form8.Cmd_Done.Enabled = False
End If
'Cal_Form8.Cmd_Done.SetFocus
Cal_Form8.Show
End Sub

Private Sub UserForm_Initialize()
'Label7.Caption = "The calibrating state is :" & StateName(StateNum - pos)
End Sub
